home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The X-Philes (2nd Revision)
/
The X-Philes Number 1 (1995).iso
/
xphiles
/
hp48hor1
/
drip.src
< prev
next >
Wrap
Text File
|
1991-10-19
|
2KB
|
87 lines
%%HP: T(3)A(R)F(.);
@ DRIP, an animation by Doug Cannon
DIR
SETUP
\<< FAUC ST\-> 'FAUC' STO { SETUP ST\-> } PURGE
\>>
ST\->
\<< \-> S
\<< "" 1 S SIZE
FOR N S N GET +
NEXT STR\->
\>>
\>>
DRIP
\<< 0 \-> DONE
\<< ERASE { # 0d # 0d } PVIEW
PICT { # 0d # 14d } FAUC REPL
PICT { # 0d # 62d } WAT REPL
PICT { # 84d # 59d } "DOUG CANNON" 1 \->GROB REPL
DO 1 9
FOR N PICT { # 22d # 30d } FSH N GET REPL 2 N / WAIT
IF KEY
THEN 9 'N' STO DROP 1 'DONE' STO
END
NEXT PICT { # 22d # 30d } D REPL
PICT { # 22d # 33d } D REPL
PICT { # 22d # 36d } D REPL
PICT { # 22d # 39d } D REPL
PICT { # 22d # 42d } D REPL
PICT { # 22d # 45d } D REPL
PICT { # 22d # 48d } D REPL
PICT { # 22d # 51d } D REPL
PICT { # 19d # 54d } H1 REPL 8000 RAND * .005 BEEP
PICT { # 17d # 57d } H2 REPL
PICT { # 15d # 58d } H3 REPL
PICT { # 14d # 59d } H4 REPL
PICT { # 13d # 58d } H5 REPL
PICT { # 12d # 58d } H6 REPL
PICT { # 11d # 58d } H7 REPL
PICT { # 10d # 59d } H8 REPL
PICT { # 10d # 60d } H9 REPL
PICT { # 8d # 61d } H10 REPL
UNTIL KEY DONE OR
END
IF DONE NOT
THEN DROP
END
\>>
\>>
FAUC {
"GROB 27 16 00C0C00000EFF10070EFF100F1CCC000F30C0000FFFFF700FFFFFF10FFF"
"FFF30FFFFFF30FFFFFF70F300CF70F1000F7070000E7000000E7000000C7000000C70" }
WAT
GROB 51 2 CFFFFFFFFFF700FFFFFFFFFFFF70
D
GROB 5 9 00000040E0F1F1F1E0
FSH { GROB 5 1 C0
GROB 5 1 E0
GROB 5 2 E1C0
GROB 5 3 E1E1C0
GROB 5 4 E1F1F1E0
GROB 5 5 E0F1F1F1E0
GROB 5 6 E0E0F1F1F1E0
GROB 5 7 C0E0F1F1F1F1E0
GROB 5 8 80C0C0E0F1F1F1E0 }
H1
GROB 11 9 000000000000020007008F008F00BF607770
H2
GROB 15 6 000008000C102E32FEB7FFF7
H3
GROB 19 4 000000002000E07830FBFE70
H4
GROB 21 3 E000E0F308F1E1E0F0
H5
GROB 23 5 600003F00087600003000000FF3EF7
H6
GROB 25 6 60000C00F0000E1060000C0000000000FF10FF10FF7CFF10
H7
GROB 27 6 0000000060000030F000087060000030FFF8FF70FFFFFF70
H8
GROB 29 4 00000000600000C0F00000E1FFFBFFF1
H9
GROB 29 3 0000000030000081FFFFFFF1
H10
GROB 31 1 00000000
END